home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 41 / PC Gamer IT CD 41 2-2.iso / utility / CISEI / 8BIT / CSEI.DXR / 00042_Posizione.ls < prev    next >
Encoding:
Text File  |  1998-10-06  |  683 b   |  26 lines
  1. on posizione
  2.   global NumTasto, LastNumTasto, MatTasti, LastEvidente, flag
  3.   set NumTasto to the mouseMember
  4.   if NumTasto < 0 then
  5.     set tasto to getAt(MatTasti, LastEvidente)
  6.     disevidenzia(tasto)
  7.     exit
  8.   end if
  9.   set NumTasto to the name of the member of NumTasto
  10.   set NumTasto to the value of char 2 to 3 of NumTasto
  11.   if the stillDown = 1 then
  12.     exit
  13.   end if
  14.   if (NumTasto = 0) and (LastEvidente = 0) then
  15.     exit
  16.   end if
  17.   if (LastEvidente <> 0) and (LastEvidente <> NumTasto) then
  18.     set tasto to getAt(MatTasti, LastEvidente)
  19.     disevidenzia(tasto)
  20.   end if
  21.   if NumTasto <> 0 then
  22.     set tasto to getAt(MatTasti, NumTasto)
  23.     evidenzia(tasto)
  24.   end if
  25. end
  26.